home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / C for beginners.adf / source / letter.c < prev    next >
Text File  |  1978-01-17  |  690b  |  20 lines
  1. /*  Filename: "letter.c" */
  2. /**********************************************************************/
  3. /* Name:          letter                                            */
  4. /* Parameter:     z (char)                                            */
  5. /* Return value: It was a letter (1), else (0)                        */
  6. /* Function: Determines if it was a letter or not                     */
  7. /* Other:     -                                                       */
  8. /**********************************************************************/
  9. #define FALSE 0
  10. #define TRUE  1
  11.  
  12. letter(z)
  13. register char z;
  14. {
  15.   if ((z >= 'a' && z <= 'z') || (z >= 'A' && z <= 'Z')) return(TRUE);
  16.   return(FALSE);
  17. }
  18.  
  19.  
  20.